10 REM *** DATA EXPRESS *** BUCK CHILDRESS ***
20 REM *** P.O. BOX 13575 SALEM, OR 97309 ***
30 PRINTCHR$(147)"[147][204]OADING AND [195]HECKING [196]ATA [204]INE:"
40 S=53000:J=S:REM *** CHANGE S TO RELOCATE ***
50 FORB=0TO11:READA
60 IFB=0THENL=PEEK(64)*256+PEEK(63):PRINTCHR$(19)TAB(31)L:PRINT
70 IFA<0ORA>255THEN90
80 POKEJ+B,A:X=X+A:NEXTB:READA:IFA=XTHEN100
90 PRINT"ERROR IN DATA LINE:"L:END
100 X=0:J=J+12:D=D+1:IFD<20THEN50
110 K=S+40:HI=INT(K/256):LO=K-(HI*256):POKES+8,LO:POKES+10,HI
120 PRINT"THE DATA IS OK...":PRINT
130 PRINT"SYS"S"TO USE...":END
140 DATA169,79,32,210,255,169,78,162,48,160,207,236,1805
150 DATA0,3,208,14,204,1,3,208,9,162,139,160,1111
160 DATA227,169,70,32,210,255,32,210,255,142,0,3,1605
170 DATA140,1,3,96,173,0,2,201,83,240,3,76,1018
180 DATA139,227,32,121,0,240,248,201,34,208,244,164,1858
190 DATA122,200,132,251,164,123,132,252,32,115,0,201,1724
200 DATA0,240,228,201,44,240,224,201,34,208,241,165,2026
210 DATA122,56,229,251,240,111,201,17,144,2,169,16,1558
220 DATA133,253,169,255,133,2,32,115,0,184,80,98,1454
230 DATA192,0,208,83,224,1,240,4,224,8,208,75,1467
240 DATA134,254,184,80,81,134,63,132,64,32,121,0,1279
250 DATA201,44,208,59,184,80,76,196,64,144,55,208,1519
260 DATA6,228,63,144,49,240,47,232,208,7,200,208,1632
270 DATA4,162,255,160,255,134,65,132,66,169,1,166,1569
280 DATA254,160,0,32,186,255,165,253,166,251,164,252,2138
290 DATA32,189,255,169,63,166,65,164,66,32,216,255,1672
300 DATA76,116,164,162,11,44,162,14,44,162,8,76,1039
310 DATA58,164,32,121,0,240,240,201,44,208,236,32,1576
320 DATA115,0,32,138,173,32,247,183,166,20,164,21,1291
330 DATA230,2,165,2,240,130,201,1,240,143,208,155,1717